home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / outche08.lha / OutCheck / OutChecker.rexx < prev    next >
OS/2 REXX Batch file  |  1994-08-04  |  4KB  |  158 lines
  1. /* */
  2.  
  3. parse arg LineNumber
  4. signal on ERROR
  5.  
  6. options results
  7.  
  8. DoorName = "OutCheck"
  9.  
  10. if( ~show( 'l', "mebbsarexx.library" ) )then do
  11.    say "Opening mebbsarexx.library"
  12.     if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  13.       say "Could not open library"
  14.       exit 10
  15.    end
  16. end
  17.  
  18. CLS = d2c(12)
  19. BLA = ''
  20. RED = ''
  21. GRE = ''
  22. YEL = ''
  23. BLU = ''
  24. PUR = ''
  25. CYA = ''
  26. WHI = ''
  27. call GetVar DoorName,LineNumber,1
  28. username = result
  29.  
  30. username = translate(username,"_"," ")
  31.  
  32.  
  33. a=1
  34. call open(mes,'Doors:OutCheck/OutNames.cfg','R')
  35.     do until eof(mes)
  36.         mes.a = readln(mes)
  37.         mes.a = UPPER(mes.a)
  38.         a=a+1
  39.         end
  40. call close(mes)
  41.  
  42. b=1
  43. do until b = a
  44. if mes.b = username then signal NOTYET
  45. b=b+1
  46. end
  47.  
  48. string = cls
  49. call output ; string=yel||"----------------------------------------------------------"||whi
  50. call output ; string="  OutBound Checker v0.8Beta - (c) Mikael Johansson M6005"
  51. call output ; string=yel||"----------------------------------------------------------"||whi
  52. call output ; string=" "
  53. call output ; string=red||"      You are NOT, a Node or a Point Under Ankeborg."
  54. call output ; string=" "
  55. call output ; string=yel||"----------------------------------------------------------"||whi
  56. call output ; string=" "
  57. call output
  58.  
  59. call HotKey DoorName,LineNumber,"Press any key "
  60.  
  61. call Exit_Door DoorName,LineNumber
  62. exit 0
  63.  
  64.  
  65. NOTYET:
  66.  
  67. string = cls
  68. call output ; string=yel||"----------------------------------------------------------"||whi
  69. call output ; string="  OutBound Checker v0.8Beta - (c) Mikael Johansson M6005"
  70. call output ; string=yel||"----------------------------------------------------------"||whi
  71. call output ; string=" "
  72. call output ; string="       Checking Outbound Directory, Please Wait...."
  73. call output ; string=" "
  74. call output ; string=yel||"----------------------------------------------------------"||whi
  75. call output
  76.  
  77. /* Checking Point Nr And Names */
  78.  
  79. call open(point,'Doors:OutCheck/OutCheck.cfg','R')
  80. call seek(point,0,'B')
  81. nrpoin=readln(point)
  82. t=0
  83. do until t = nrpoin
  84.     t=t+1
  85.     node.t = readln(point)
  86.      y = WORDS(node.t)
  87.     point.t = WORD(node.t,1)
  88.     first = WORD(node.t,2)
  89.     last = WORD(node.t,3)
  90.     name.t = First||" "||last
  91. end
  92. call close(point)
  93.  
  94. /* Makeing List of out dir */
  95.  
  96. filelist = SHOWDIR('outbound:','F')
  97. n = WORDS(filelist)
  98. n=n+1
  99. m=0
  100. BEGIN:
  101. do until m = n
  102.     m=m+1
  103.     exte.m = "" ; file.m = ""
  104.     file.m = WORD(filelist,m)
  105.  
  106.     exte.m = RIGHT(file.m,3)
  107.     if exte.m = "" then call END_IT
  108.     if exte.m = "FLO" then SIGNAL BEGIN
  109.     if exte.m = "HLO" then SIGNAL BEGIN
  110.     if exte.m = "CLO" then SIGNAL BEGIN
  111.     if exte.m = "TIC" then SIGNAL BEGIN
  112.     if exte.m = "LHA" then SIGNAL BEGIN
  113.     if exte.m = "LZH" then SIGNAL BEGIN
  114.     if exte.m = "TXT" then SIGNAL BEGIN
  115.     if exte.m = "ARC" then SIGNAL BEGIN
  116.     if exte.m = "ARJ" then SIGNAL BEGIN
  117.     if exte.m = "ZIP" then SIGNAL BEGIN
  118.  
  119.     filestring = STATEF('outbound:'||file.m)
  120.     byte.m = WORD(filestring,2)
  121.     file.m = LEFT(file.m,18)
  122.     byte.m = LEFT(byte.m,6)
  123.     node.m = TRANSLATE(file.m,"","ABCDEFGHIJKLMNOPQRSTUVWXYZ.")
  124.     node.m = STRIP(node.m,"T")
  125.     if word(node.m,5) = "1" then node.m = DELSTR(node.m,13)
  126.     node.m = STRIP(node.m,"T")
  127.     node.m = TRANSLATE(node.m,"."," ")
  128.         t=0 ; name=""
  129.         do until t = nrpoin
  130.         t=t+1
  131.         if point.t = node.m then name = name.t
  132.         end
  133.     string="File: "||gre||file.m||whi||" Byte(s): "||gre||byte.m||whi||" Node: "||gre||node.m||whi||" "||name
  134.     call output
  135. END
  136.  
  137. END_IT:
  138.  
  139. string=yel||"----------------------------------------------------------"||whi
  140. call output ; string=" "
  141. call output ; string=" That was all in the OutBound: dir"
  142. call output ; string=" "
  143. call output ; string=" "
  144. call output
  145. call HotKey DoorName,LineNumber,"Press any key "
  146.  
  147. call Exit_Door DoorName,LineNumber
  148. exit 0
  149.  
  150. ERROR:
  151. call Exit_Door DoorName,LineNumber
  152. exit 10
  153.  
  154. output:                                  
  155. call message DoorName,LineNumber,string,1
  156. return
  157.  
  158.